﻿<!-- #include file="user.dll" -->
<% 
'使用该插件不得复制或转送他人等原因,如果发现，本人有权直接停止一切售后服务,不再更新！请尊敬本人劳动作品…技术Qq335660082 网址:yltdi.com
userid=useid
ok=request("ok")
id=request("id")
zid=request("zid")
txtit=request("txtit")
if ok="" then
title="农币排行"
sjjjjss="mylb"
yltdi.ctitle
ylt"农币排行|<a href='"&mys&"/lcph.asp?ok=1&amp;zid="&zid&"&amp;wap="&wap&"'>级别排行</a><br/><a href='"&mys&"/lcph.asp?ok=2&amp;zid="&zid&"&amp;wap="&wap&"'>经验排行</a>|<a href='"&mys&"/lcph.asp?ok=3&amp;zid="&zid&"&amp;wap="&wap&"'>果实排行</a><br/>"
end if 
if ok="1" then
title="级别排行"
sjjjjss="myjb"
yltdi.ctitle
ylt"<a href='"&mys&"/lcph.asp?zid="&zid&"&amp;wap="&wap&"'>农币排行</a>|级别排行<br/><a href='"&mys&"/lcph.asp?ok=2&amp;zid="&zid&"&amp;wap="&wap&"'>经验排行</a>|<a href='"&mys&"/lcph.asp?ok=3&amp;zid="&zid&"&amp;wap="&wap&"'>果实排行</a><br/>"
end if 
if ok="2" then
title="经验排行"
sjjjjss="myjl"
yltdi.ctitle
ylt"<a href='"&mys&"/lcph.asp?zid="&zid&"&amp;wap="&wap&"'>农币排行</a>|<a href='"&mys&"/lcph.asp?ok=1&amp;zid="&zid&"&amp;wap="&wap&"'>级别排行</a><br/>经验排行|<a href='"&mys&"/lcph.asp?ok=3&amp;zid="&zid&"&amp;wap="&wap&"'>果实排行</a><br/>"
end if 
if ok="3" then
title="果实排行"
sjjjjss="ssgs"
yltdi.ctitle
ylt"<a href='"&mys&"/lcph.asp?zid="&zid&"&amp;wap="&wap&"'>农币排行</a>|<a href='"&mys&"/lcph.asp?ok=1&amp;zid="&zid&"&amp;wap="&wap&"'>级别排行</a><br/><a href='"&mys&"/lcph.asp?ok=2&amp;zid="&zid&"&amp;wap="&wap&"'>经验排行</a>|果实排行<br/>"
end if 
 set rs=server.createobject("adodb.recordset")
    sql="select * from yltdi_sqlc_my order by "&sjjjjss&" desc"
    rs.open sql,conn,3,3
if rs.bof and rs.eof then
   	ylt"暂时还没有排行"
else
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then	
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
rs.pagesize =10
total  = rs.RecordCount
rs.absolutepage=page
mypagesize = rs.pagesize
	dim i 
	   	i=1 
	do while not rs.eof and i<=mypagesize 
     set rshy2=Server.CreateObject("ADODB.Recordset")
     sqlhy2="select * from qingtian_User where Id="&rs("myid")
  rshy2.open sqlhy2,conn,1,1
    if rshy2.eof then
nameh="游客"
		else
nameh=yltdi.yltdiutf8(rshy2("Name"))
      end if
ylt""&(page-1)*10+i&".<a href='"&mys&"/index.asp?tousid="&rs("myid")&"&amp;zid="&zid&"&amp;wap="&wap&"'>"&nameh&"</a>"
ylt"<br/>"
if ok="" then
ylt"农币:"&rs("mylb")&"个<br/>"
elseif ok="1" then
ylt"级别:"&rs("myjb")&"级<br/>"
elseif ok="2" then
ylt"经验:"&rs("myjl")&"<br/>"
elseif ok="3" then
ylt"实收果实:"&rs("ssgs")&"个<br/>"
End If
i=i+1
rs.movenext 
loop 
if page<rs.pagecount   then
ylt"<a href='"&mys&"/lcph.asp?page="&page+1&"&amp;ok="&ok&"&amp;wap="&wap&"'>下页>></a>"
end if
if page>1 then
ylt"<a href='"&mys&"/lcph.asp?page="&page-1&"&amp;ok="&ok&"&amp;wap="&wap&"'>上页>></a>"
end if
ylt"<br/>共"&rs.RecordCount&"名农员"
     end if
   
ylt"<br/><a href='"&mys&"/index.asp?wap="&wap&"'>返回我的农场</a>":yltdi.out:yltdilc.yltditx
%>